home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / • Other Platforms / PCCTS 1.31 / lang / Pascal / test.p < prev    next >
Encoding:
Text File  |  1995-03-10  |  484 b   |  25 lines  |  [TEXT/MPS ]
  1. program convert(output);
  2.  
  3. type color = (white, red, blue, yellow, purple, green);
  4.      xx = 'a'..'z';
  5.      duh = array[white..green] of real;
  6.      person = record
  7.         ss : integer;
  8.         sex : (male,female);
  9.         birth : color;
  10.         case ms : color of
  11.             white,red : (mdate:integer);
  12.             blue : (ddate:integer; firstd:integer)
  13.      end;
  14.  
  15. var   a : color;
  16.       b : array [1 ..3,2 ..5,2 ..9] of person;
  17.       c : file of real;
  18.  
  19. begin
  20.     with b[white,3,3] do begin
  21.         a := red;
  22.         b[white,3,3]^.d[3] := 3.14159
  23.     end
  24. end.
  25.